home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 2 / DOS031.dsk / WIZARD.int < prev    next >
Text File  |  2012-02-16  |  3KB  |  76 lines
  1. 32710 REM      
  2.  
  3.  
  4.  
  5.  
  6.  
  7.  
  8.  
  9.  
  10.  
  11.  
  12.  
  13.  
  14.  
  15.  
  16. 32711 REM THIS PROGRAM IS A DEVIOUS CARD TRICK. 
  17. 32712 REM WHEN YOU LEARN HOW IT WORKS, YOU CAN  
  18. 32713 REM PLAY IT ON SOMEBODY, AND MAKE BOTH OF 
  19. 32714 REM US LOOK LIKE ABSOLUTE WIZARDS!
  20.  
  21.  
  22.  
  23. 32715 REM BUT YOU ARE NOT SUPPOSED TO LIST IT!RUN  WIZARD
  24. 32716 DIM COL$(5),SUIT$(8),LO$(5),HI$(5):REM INT
  25. 32717 DIM DENOM$(70):DENOM$="ACE  DEUCETHREEFOUR FIVE SIX  SEVENEIGHTNINE TEN  JACK QUEENKING ACE  ":REM INT
  26. 32718 DIM VAL$(5),DIR$(6):REM INT
  27. 32719  POKE 0,169: POKE 1,32: POKE 2,32: POKE 3,178: POKE 4,165: POKE 5,32: POKE 6,81: POKE 7,168: POKE 8,76: POKE 9,236: POKE 10,239:REM INT
  28. 32720  POKE 1010,0: POKE 1011,0: POKE 1012,165:TEXT :CALL -936:CALL -384:REM  INT
  29. 32721 FOR I=1 TO 13:PRINT "   ";:NEXT I:REM INT
  30. 32722 FOR I=1 TO 7:PRINT "  ":CALL -1008:NEXT I:REM INT
  31. 32723 FOR I=1 TO 10:PRINT "    ";:NEXT I:PRINT " ":REM INT
  32. 32724 CALL -380:REM INT
  33. 32725 FOR I=1 TO 200:TAB 2+ RND (38):VTAB 2+ RND (7):PRINT "*";:NEXT I:REM INT
  34. 32726 CALL -384:V=4:H=10:REM INT
  35. 32727 VTAB V:TAB H:PRINT "                     ":REM INT
  36. 32728 TAB H:PRINT " WIZARD'S CARD TRICK ":REM INT
  37. 32729 TAB H:PRINT "                     ":REM INT
  38. 32730 CALL -380:VTAB 11: POKE 34,10:REM INT
  39. 32731 PRINT "HAS A CARD BEEN SELECTED? ";:REM INT
  40. 32732 GOSUB 32754:IF HI THEN COL$="RED":IF LO THEN COL$="BLACK":REM INT
  41. 32733 PRINT :PRINT "IS IT A ";COL$;" CARD? ";:GOSUB 32754:REM INT
  42. 32734 IF HI AND COL$="RED" THEN SUIT$="HEART":REM INT
  43. 32735 IF LO AND COL$="RED" THEN SUIT$="DIAMOND":REM INT
  44. 32736 IF HI AND COL$="BLACK" THEN SUIT$="SPADE":REM INT
  45. 32737 IF LO AND COL$="BLACK" THEN SUIT$="CLUB":REM INT
  46. 32738 PRINT :PRINT "IS THE CARD A ";SUIT$;"? ";:GOSUB 32754:REM INT
  47. 32739 MIN=HI*6:MAX=13-6*LO:REM INT
  48. 32740 IF HI THEN 32741:DIR$="LOW":ASK=MAX+1:REM INT
  49. 32741 IF LO THEN 32742:DIR$="HIGH":ASK=MIN-1:REM INT
  50. 32742 IF MIN=MAX THEN ASK=MAX:VAL$=DENOM$(5*ASK+1,5*ASK+5):REM INT
  51. 32743 IF VAL$(5,5)=" " THEN VAL$=VAL$(1,4):IF VAL$(4,4)=" " THEN VAL$=VAL$(1,3):REM INT
  52. 32744 IF MIN=MAX THEN 32751:REM INT
  53. 32745 PRINT :PRINT "IS IT ";DIR$;"ER THAN THE ";VAL$;"? ";:REM INT
  54. 32746 GOSUB 32754:REM INT
  55. 32747 IF HI THEN MIN=MAX-(MAX-MIN)/2:REM INT
  56. 32748 IF LO THEN MAX=MIN+(MAX-MIN)/2:REM INT
  57. 32749 GOTO 32740:REM INT
  58. 32750 ASK=MIN:REM INT
  59. 32751 REM INT
  60. 32752 PRINT :PRINT "IT'S THE ";VAL$;" OF ";SUIT$;"S!":REM INT
  61. 32753 TEXT :VTAB 23:END :REM INT
  62. 32754 REM INT
  63. 32755 KB=-16384:REM INT
  64. 32756 L$="Y":GOSUB 32765:ERR=ERR+1-OK:REM INT
  65. 32757 L$="E":GOSUB 32765:ERR=ERR+1-OK:REM INT
  66. 32758 L$="S":GOSUB 32765:PRINT :REM INT
  67. 32759 HI=0:LO=1:IF KEY= ASC("A") THEN RETURN :REM INT
  68. 32760 HI=1:LO=0:IF KEY= ASC("D") THEN RETURN :REM INT
  69. 32761 ERR=ERR+1:IF ERR>3 THEN 32763:REM INT
  70. 32762 PRINT :PRINT "ARE YOU SURE YOU MEANT 'YES'? ";:GOTO 32756:REM INT
  71. 32763 PRINT :PRINT "THE WIZARD THINKS YOU ARE NOT PAYING    ATTENTION, SO THE WIZARD IS LEAVING.":REM INT
  72. 32764 TEXT :PRINT "<CTRL-D>INT":CALL -8192:END :REM INT
  73. 32765 CALL -756:KEY= PEEK (KB):IF KEY<128 THEN KEY=KEY+128:REM INT
  74. 32766 PRINT L$;:OK=KEY= ASC(L$):RETURN :REM INT
  75. 32767 REM YOU ARE NOT SUPPOSED TO LIST IT!INT
  76.